64'er/64ER_CD.iso/s85xx/s8503c.d64/buch weisheit_ba

Commodore BASIC | 1995-03-30 | 35KB | 883 lines

1 REM  ********************************
2 REM  *                              *
3 REM  *     DAS BUCH DER WEISHEIT    *
4 REM  *                              *
5 REM  *          JULI 1984           *
6 REM  *                              *
7 REM  * EDGAR THORAND                *
8 REM  * AN DER ROETHE 1              *
9 REM  * 3501 KOERLE                  *
10 REM * 05665/1670                   *
11 REM *                              *
12 REM *       UND   FALK MESSING     *
13 REM *             C/O E.THORAND    *
14 REM *                              *
15 REM *                              *
16 REM ********************************
23 FORM=1TO3:Y(M)=INT(RND(1)*144)+108:NEXTM
24 DEFFNTR(CP)=(CP=OB(NO)OROB(NO)=-2)
25 POKE53280,2:POKE53281,2
26 PRINTCHR$(14)
27 PRINT"[147]"
28 PRINT"[144]*** [196]AS [194][213][195][200] DER [215][197][201][211][200][197][201][212] ***"
29 PRINT"[197].[212]HORAND  UND  [198].[205]ESSING"
30 GOSUB50000
35 PRINT"[147][206]EUES ODER [193]LTES [211]PIEL ?"
36 GETSP$:IFSP$=""THEN36
37 IFSP$="N"ORSP$="[206]"THEN40
38 IFSP$="A"ORSP$="[193]"THEN25000
39 GOTO35
40 POKE53280,0:POKE53281,0
100 REM
101 S=O
110 GOSUB1261
112 GOSUB1130
115 IFVB=3ANDN1$=""THEN100
120 IFNO<9ANDNO<>0AND(VB=0ORVB=1)THENVB=1:GOTO150
130 IFLEN(N1$)>0ANDNO=0THENS=1
131 IFS=1THENS=0:PRINT"[152][201]CH KENNE ";CHR$(34);N1$;CHR$(34);" NICHT!":GOTO112
135 IFVB=27ORVB=13ORVB=38ORVB=29ORVB=24THEN150
140 IFN1$=""ANDVB>0THENPRINT"[152][201]CH BENOETIGE EIN [214][197][210][194] UND EIN [207][194][202][197][203][212]!":GOTO112
150 GOTO1490
1130 PRINT:PRINT"[154][215]AS WILLST [196]U JETZT MACHEN ?"
1135 INPUTCM$
1140 IFLEN(CM$)=0THEN1130
1150 VB$="":NO$="":VB=0:NO=0
1160 LC=LEN(CM$):FORI=1TOLC:A$=MID$(CM$,I,1):IFA$<>" "THENVB$=VB$+A$:NEXT
1170 IFLEN(VB$)+1>=LEN(CM$)THENNO=0:GOTO1190
1180 NO$=RIGHT$(CM$,LC-I)
1190 N1$=NO$:V1$=VB$:VB$=LEFT$(VB$,4):NO$=LEFT$(NO$,4):FORI=1TONV
1200 IFVB$=VB$(I)THENVB=I:GOTO1240
1210 NEXT:VB=0
1220 IFN1$=""THENNO$=VB$
1230 VB=0:GOTO1250
1240 IFVB$=CM$THENNO=0:NO$="":RETURN
1250 FORI=1TONN:IFNO$=NO$(I)THENNO=I:RETURN
1260 NEXT:NO=0:NO$="":RETURN
1261 IFKL=1ANDCP=43ANDVB=3THENPRINTS$(112):RETURN
1262 IFKL=1ANDCP=57ANDVB=3THENPRINTS$(112):RETURN
1263 IFKL=1ANDCP=62ANDVB=3THENPRINTS$(113):RETURN
1264 IFKL=1ANDCP=131ANDVB=3THENPRINTS$(114):RETURN
1265 IFKL=1ANDCP=133ANDVB=3THENPRINTS$(114):RETURN
1266 IFKL=1ANDCP=137ANDVB=3THENPRINTS$(114):RETURN
1270 IFCP<>CSORVB=3ANDN1$=""THENPRINT"[147]":CS=CP:GOTO1290
1280 RETURN
1290 P$="[154][196]U BIST "+P$(CP)
1291 PRINTP$:IFLG=0THEN1298
1292 IFOB(47)=-2ANDLI>0THENS=1
1293 IFOB(47)=CPANDLI>0THENS=1
1294 IFS=1THENS=0:GOTO1298
1297 PRINTS$(62):GOTO1340
1298 K=0:FORI=1TOLO:IFOB(I)<>CPTHEN1330
1300 IFK=0THENPRINT"[156][196]U SIEHST "
1310 IF(4+POS(0)+LEN(OB$(I)))>39THENPRINT
1320 PRINT"";OB$(I);".";:K=K+1
1330 NEXTI
1331 IFCP=134ORCP=120THENPRINT"[197]ISENRINGE."
1332 IFCP=133ORCP=136ORCP=139ORCP=141ORCP=146ORCP=137THENS=1
1333 IFS=1THENS=0:PRINT:PRINT"[153][196]A SIND [211]CHIENEN."
1334 IFK>0THENPRINT
1340 K=0:PRINT:PRINT"[156][205]OEGLICHE [210]ICHTUNGEN: "
1350 FORI=0TO3:IFP(CP,I)=0THEN1380
1360 IFK>0THENPRINT". ";:K=K+1
1370 PRINT"[155]";D$(I);:K=K+1
1380 NEXT
1390 PRINT
1399 RETURN
1490 IFBI>0THENZ=Z+1
1491 IFZ=4ORZ=7ORZ>9THENPRINTS$(26):FORI=1TO1500:NEXTI
1492 IFZ>12THEN30000
1494 IFRI>2THENPRINTS$(40):FORI=1TO2000:NEXTI
1495 IFRI=5THENPRINTS$(41):OB(40)=0:ZZ=ZZ-1:FORI=1TO2000:NEXTI:RI=0
1500 IFOB(91)=-1THENF=F+1
1501 IFF>4 THENPRINTS$(67):FORI=1TO2500:NEXTI:IFOB(16)=-2THENZZ=ZZ-1
1502 IFF> 4THENOB(16)=0:FE=0:F=0:OB(91)=-3
1504 IFOB(95)=-1THENB=B+1:IFB>15THENPRINTS$(68):IFOB(20)=-2THENZZ=ZZ-1
1505 IFB>15THENOB(20)=0:B=0:OB(95)=-3
1510 IFPF=0THENOB(38)=0:PF=0
1515 IFBP>0THENBP=BP+1:IFBP>5THENPRINTS$(155):OB$(38)=OB$(98):OB(96)=0:S=1
1516 IFS=1THENS=0:BP=0:FORI=1TO2500:NEXTI
1522 IFCP=58THEN30010
1523 IFCP=41ANDOB(11)<>-2THENSP=SP+1:IFSP>4THEN30030
1529 IFCP=30ORCP=31ORCP=39ORCP=44ORCP=48ORCP=51ORCP=52ORCP=60ORCP=61THENS=1
1530 IFS=1THENSM=SM+1:IFSM>5THENS=0:GOTO30020
1540 IFCP=161THENPRINTS$(163):FORI=1TO2000:NEXTI:GOTO30010
1545 IFCP=149THENPRINTS$(164):FORI=1TO2000:NEXTI:GOTO30010
1600 IFRU>0THENRU=RU+1:GOTO100
1601 IFRU=2ORRU=4ORRU=6THENPRINTS$(167):GOTO100
1603 IFRU>6THENGOTO30010
1700 FORM=1TO3:IFCP=Y(M)THEN1705
1701 NEXTM
1702 GOTO1991
1705 IFOB(13)=-2THENPRINTS$(167):OB(13)=0:ZZ=ZZ-1:Y(1)=0:Y(2)=0:Y(3)=0:S=1
1706 IFS=1THENS=0:FORI=1TO2000:NEXTI:GOTO1991
1707 FORI=1TOLO:IFOB(I)=-2THENOB(I)=0:ZZ=ZZ-1:PRINTS$(168):Y(M)=0:S=1
1708 IFS=1THENS=0:FORX=1TO2000:NEXTX:GOTO1991
1709 NEXTI
1991 IFKL=1ANDVB<>13THENIFKL=1ANDVB<>12THENPRINTS$(2):GOTO112
2000 IFVB=0THEN2100
2010 ONVBGOTO3000,3500,4000,4500,5000,5500,14000,6500,7000,7500,8000,8500,9000
2011 ONVB-13GOTO9500,10000,10000,3500,3500,10500,10500,11000,3000,3000
2012 ONVB-23GOTO11500,12000,12500,20000,13500,14000,14000,14500,14500,15000
2013 ONVB-33GOTO15500,16000,16500,17000,17500
2100 PRINT"[152][201]CH HABE NIE GELERNT,WIE MAN "
2101 PRINTCHR$(34);V1$;CHR$(34);" ANWENDET":GOTO100
3000 IFNO<9THEN3025
3005 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
3008 IFNO=10ANDCP=7THENCP=177:GOTO100
3010 IFNO=30THENPRINTS$(136):GOTO100
3020 IFNO=79ANDOB(79)=CPTHENPRINTS$(157):GOTO100
3022 IFNO=61THENPRINTS$(157):GOTO100
3023 IFNO=64THENPRINTS$(157):GOTO100
3024 PRINTS$(158):GOTO100
3025 IFNO>4THENNO=NO-4
3026 NO=NO-1
3030 IFP(CP,NO) =0THENPRINT"[203]EIN [215]EG IN DIESE [210]ICHTUNG":GOTO100
3035 IFCP=148ORCP=153ORCP=156ORCP=160ORCP=164THENS=1
3040 IFS=1THENIFOB(30)<>-2THENPRINTS$(159):S=0:FORI=1TO1500:NEXTI:GOTO30010
3045 IFS=1THENIFOB(30)=-2ANDOB(31)<>-2THENPRINTS$(160):S=0:RU=1:GOTO100
3046 S=0
3050 IFCP=25ANDNO=1ANDOB(21)=CPTHENPRINT"[153][196]ER [212]IGER ";S$(28):GOTO100
3055 IFCP=28ANDNO=1ANDOB(90)<>-1THENPRINT"[153][196]ER [208]UMA ";S$(28):GOTO100
3060 IFCP=33ANDNO=2ANDOB(17)=CPTHENPRINT"[153][196]IE [208]HYTON ";S$(28):GOTO100
3065 IFCP=34ANDNO=2ANDOB(71)=CPTHENPRINT"[153][196]IE [193]FFEN ";S$(161):GOTO100
3070 IFCP=35ANDNO=2ANDOB(18)=CPTHENPRINT"[153][196]IE [197]LEPHANTEN ";S$(161):GOTO100
3075 IFCP=49ANDNO=2ANDOB(25)=CPTHENPRINT"[153][196]IE [194]OA ";S$(28):GOTO100
3080 IFCP=41ANDOB(22)=CPANDOB(87)<>-1THENPRINT"[153][196]IE [211]PINNE ";S$(28):GOTO100
3083 IFCP=73ANDNO=3ANDOB(76)=CPTHENCP=61:GOTO100
3085 IFCP=73ANDOB(76)=CPTHENPRINT"[153][196]IE [203]REBSE ";S$(161):GOTO100
3090 IFCP=63ANDNO=1ANDOB(73)=CPTHENPRINT"[153][196]IE [210]ATTEN ";S$(161):GOTO100
3100 IFCP=84ANDNO=0ANDOB(37)=CPTHENPRINT"[153][196]IE [208]FLANZE ";S$(28):GOTO100
3110 IFCP=87ANDNO=0ANDOB(89)<>-1THENPRINT"[153][196]ER [211]CORPION ";S$(28):GOTO100
3115 IFCP=106ANDOB(47)<>-2ANDNO=2THENPRINT"[153][196]IE [218]WERGE ";S$(161):GOTO100
3120 IFCP=106ANDNO=3ANDOB(12)<>-2THENPRINT"[153][196]IE [218]WERGE ";S$(161):GOTO100
3131 IFCP=130ANDNO=1ANDOB(57)=CPTHENPRINT"[153][196]ER [198]LUGDRACHE ";S$(28):GOTO100
3135 IFCP=135ANDNO=2ANDOB(62)=CPTHENPRINT"[153][196]ER [215]AECHTER ";S$(28):GOTO100
3136 IFCP=156ANDOB(43)=CPANDNO=2THENPRINT"[153][196]IE [203]ROKODILE ";S$(161):GOTO100
3137 IFCP=124ANDNO=2ANDOB(56)=CPTHENPRINT"[153][196]ER [211]TEINFRESSER ";S$(28):GOTO100
3140 IFCP=120ANDBA<>CPANDNO=1THENS=1
3141 IFCP=112ANDBA<>CPANDNO=0THENS=1
3142 IFCP=128ANDBA<>CPANDNO=2THENS=1
3143 IFCP=134ANDBA<>CPANDNO=2THENS=1
3144 IFCP=145THENS=1
3148 IFS=1THENPRINTS$(56):CP=147:OB(47)=106:OB(12)=165:FORI=1TO2500:NEXTI
3149 IFS=1THENZZ=ZZ-1:LG=0:S=0:GOTO100
3150 CP=P(CP,NO):GOTO100
3500 :
3504 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
3505 IFSE>0ANDNO=42THENPRINTS$(2):GOTO100
3506 IFOB(NO)=-2THENPRINTS$(25):GOTO100
3508 IFNO=10ORNO=18ORNO=19ORNO=21ORNO=23ORNO=24ORNO=26ORNO=27ORNO=28THENS=1
3509 IFNO=29ORNO=37ORNO=41ORNO=46ORNO=49ORNO=61ORNO=60ORNO=62ORNO=63THENS=1
3510 IFNO=67ORNO=68ORNO=69ORNO=72ORNO=75ORNO=79ORNO=71ORNO=36ORNO>81THENS=1
3511 IFS=1THENPRINTS$(7):S=0:GOTO100
3514 IFNO=54ORNO=64THENPRINTS$(9):GOTO100
3516 IFNO=17ORNO=25ORNO=33ORNO=56ORNO=57ORNO=73THENS=1
3519 IFNO=22ANDOB(87)<>-1THENS=1
3521 IFNO=70ANDOB(88)<>-1THENS=1
3522 IFNO=74ANDOB(89)<>-1THENS=1
3527 IFS=1THENPRINTS$(8):S=0:BI=1:GOTO100
3529 IFNO=13ANDOB(88)<>-1THENPRINT"[153][196]IE [212]ARANTEL";S$(28):GOTO100
3530 IFNO=47ANDOB(46)=CPANDLG=0THENPRINT"[153][196]ER [218]WERGENKOENIG";S$(28):GOTO100
3532 IFNO=47ANDLI=0THENLI=CP
3539 IFZZ>8THENPRINTS$(27):GOTO100
3540 PRINTS$(1):OB(NO)=-2:ZZ=ZZ+1:GOTO100
4000 :
4005 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
4010 IFNO=48ORNO=54ORNO=58ORNO=60ORNO=65ORNO=66ORNO=50THEN4020
4012 PRINTS$(143):GOTO100
4020 IFNO=48ANDOB(82)=-1THENPRINTS$(144):GOTO100
4025 IFNO=48THENPRINTS$(145):GOTO100
4030 IFNO=66ANDOB(83)=-1ANDOB(80)=CPTHENPRINTS$(146):GOTO100
4035 IFNO=66ANDOB(83)=-1THENPRINTS$(144):GOTO100
4040 IFNO=66THENPRINTS$(145):GOTO100
4045 IFNO=60THENPRINTS$(147):GOTO100
4050 IFNO=54THENPRINTS$(148):GOTO100
4055 IFNO=65THENPRINTS$(149):GOTO100
4060 IFNO=50THENPRINTS$(165):GOTO100
4065 PRINTS$(143):GOTO100
4500 :
4503 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
4504 IFNO=12ANDOB(12)<>-2THENPRINTS$(29):GOTO100
4505 IFNO=47ANDOB(47)<>-2THENPRINTS$(29):GOTO100
4506 IFNO=12ANDOB(46)=CPTHENPRINTS$(57):OB(12)=0:OB(47)=-2:LG=1:GOTO 100
4507 IFNO=47ANDOB(46)=CPTHENPRINTS$(72):OB(12)=CP:OB(47)=CP:LG=0:OB(12)=-2:S=1
4508 IFS=1THENS=0:GOTO100
4510 IFCP=106THENPRINTS$(13):GOTO100
4513 IFCP<>106THENPRINTS$(73):GOTO100
4515 PRINTS$(58):GOTO100
5000 :
5004 IFOB(42)<>-2THENPRINTS$(29):GOTO100
5006 IFCP=43THENPRINTS$(42):SE=1:OB(42)=CP:ZZ=ZZ-1:GOTO100
5008 IFCP=57THENPRINTS$(43):SE=1:OB(42)=CP:ZZ=ZZ-1:GOTO100
5012 IFCP=120ORCP=134THENS=1
5014 IFS=1THENS=0:PRINTS$(48):ZZ=ZZ-1:OB(42)=CP:SE=1:GOTO100
5018 PRINTS$(46):GOTO100
5500 :
5504 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
5506 IFNO=40ORNO=58THEN5508
5507 PRINTS$(36):GOTO100
5508 IFNO=58ANDDR=1THENPRINTS$(6):GOTO100
5509 IFNO=58THENPRINTS$(37):P(131,2)=135:DR=1:GOTO100
5510 IFNO=40ANDOB(12)=-2THENPRINT"[147]";S$(39):RI=RI+1:GOTO5514
5512 PRINTS$(38):GOTO100
5514 X=INT(RND(1)*6)+1
5515 ONXGOSUB5520,5525,5530,5535,5540,5541
5517 IFCD=CPTHEN5514
5518 FORI=1TO2500:NEXTI:GOTO100
5520 CP=17:RETURN
5525 CP=22:RETURN
5530 CP=92:RETURN
5535 CP=95:RETURN
5540 CP=176:RETURN
5541 CP=5:RETURN
6500 :
6505 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
6510 IFNO=48ANDOB(82)=-1THENPRINT"[153][196]IE [212]RUHE ";S$(122):GOTO100
6515 IFNO=48ANDOB(51)=-2ANDOB(93)=-1THENPRINTS$(1):S=1
6516 IFS=1THENS=0:OB(82)=-1:OB$(48)=OB$(82):GOTO100
6517 IFNO=48ANDOB(93)<>-1THENPRINTS$(2):GOTO100
6518 IFNO=48ANDOB(51)<>-2THENPRINTS$(2):GOTO100
6525 IFNO=54THENPRINTS$(123):GOTO100
6530 IFNO=66ANDOB(83)=-1THENPRINT"[153][196]IE [203]ISTE ";S$(122):GOTO100
6539 IFS=1THENS=0:PRINTS$(124):OB(80)=CP:PG=1:GOTO100
6540 IFNO=66ANDOB(92)<>-1THENPRINTS$(2):GOTO100
6541 IFNO=66ANDOB(55)<>-2THENPRINTS$(2):GOTO100
6543 IFNO=66ANDOB(92)=-1ANDOB(55)=-2THENPRINTS$(1):OB(83)=-1:S=1
6544 IFS=1THENS=0:OB$(66)=OB$(83):PRINTS$(4):OB(80)=CP:GOTO100
6545 IFNO=65ANDBU=1THENPRINTS$(122):GOTO100
6550 IFNO=65THENPRINTS$(1):BU=1:GOTO100
6555 PRINTS$(125):GOTO100
7000 :
7004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
7005 IFNO<>12THENPRINTS$(128):GOTO100
7006 IFNO=12ANDCP>10THENPRINTS$(2):GOTO100
7010 IFNO=12ANDCP<11THENPRINT"[147]";S$(39)
7011 FORM=1TO2500:NEXTM
7012 PRINT"[147]":IFOB(12)<>-2THENOB(12)=-2:ZZ=ZZ+1
7015 X=INT(RND(1)*3)+1
7016 IFX=1THENCP=11:GOTO100
7017 IFX=2THENCP=12:GOTO100
7018 IFX=3THENCP=13:GOTO100
7020 IFNO=12THENPRINTS$(2):GOTO100
7025 GOTO100
7500 :
7501 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
7502 IFNO=15ORNO=16ORNO=20ORNO=38ORNO=47THEN7504
7503 PRINTS$(66):GOTO100
7504 IFNO=16ANDOB(91)=-1THENPRINTS$(21):GOTO100
7506 IFNO=16ANDFE=0THENPRINTS$(70):GOTO100
7508 IFNO=15ANDOB(94)=-1THENPRINTS$(63):GOTO100
7512 IFNO=15ANDFE=1ANDOB(16)=CPTHENS=1
7514 IFNO=15ANDFE=1ANDOB(16)=-2THENS=1
7516 IFS=1THENPRINTS$(1):S=0:OB$(15)=OB$(94):FA=1:OB(94)=-1:GOTO100
7520 IFNO=20ANDOB(95)=-1THENPRINTS$(64):GOTO100
7525 IFNO=20ANDFA=1ANDOB(15)=CPTHENS=1
7530 IFNO=20ANDFA=1ANDOB(15)=-2THENS=1
7535 IFS=1THENS=0:PRINTS$(1):OB$(20)=OB$(95):B=1:OB(95)=-1:GOTO100
7540 IFNO=38ANDOB(96)=-1THENPRINTS$(65):GOTO100
7545 IFNO=38ANDFA=1ANDOB(15)=-2THENS=1
7550 IFNO=38ANDFA=1ANDOB(15)=CPTHENS=1
7555 IFS=1THENS=0:OB$(38)=OB$(96):OB(96)=-1:BP=1:PRINTS$(1):GOTO100
7560 IFNO=47ANDOB(97)=-1THENPRINTS$(71):GOTO100
7565 IFNO=47ANDFA=1ANDOB(15)=-2THENS=1
7570 IFNO=47ANDFA=1ANDOB(15)=CPTHENS=1
7580 IFS=1THENS=0:PRINTS$(1):OB$(47)=OB$(97):OB(97)=-1:LI=CP:GOTO100
7585 PRINTS$(2):GOTO100
8000 :
8004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
8006 IFOB(NO)<>-2THENPRINTS$(29):GOTO100
8007 IFNO=47ANDLG=1THENLI=0
8008 OB(NO)=CP:ZZ=ZZ-1:PRINTS$(1)
8010 IFNO=52ANDOB(12)=CPTHENPRINTS$(93):OB(52)=0:GOTO100
8020 IFNO=44ANDCP=33ANDOB(17)=CPTHENPRINTS$(95):OB(17)=0:OB(44)=0:GOTO100
8025 IFNO=44ANDCP=49ANDOB(25)=CPTHENPRINTS$(93):OB(44)=0:GOTO100
8030 IFNO=52ANDCP=35ANDOB(18)=CPTHENPRINTS$(93):OB(52)=0:GOTO100
8035 IFNO=35ANDCP=35ANDOB(18)=CPTHENPRINTS$(96):OB(18)=0:OB(35)=0:GOTO100
8040 IFNO=45ANDCP=84ANDOB(37)=CPTHENPRINTS$(97):OB(37)=0:OB(45)=0:GOTO100
8045 IFNO=78ANDCP=34ANDOB(71)=CPTHENPRINTS$(98):OB(78)=0:OB(71)=0:GOTO100
8050 IFNO=77ANDCP=63ANDOB(73)=CPTHENPRINTS$(99):OB(77)=0:OB(73)=0:GOTO100
8055 IFNO=34ANDCP=73ANDOB(76)=CPTHENPRINTS$(100):OB(34)=0:OB(76)=0:GOTO100
8060 IFNO=34ANDCP=63ANDOB(73)=CPTHENPRINTS$( 99):OB(34)=0:OB(73)=0:GOTO100
8070 IFNO=20ANDCP=112THENBA=CP:PRINTS$(126):GOTO100
8072 IFNO=20ANDCP=134THENBA=CP:PRINTS$(126):GOTO100
8073 IFNO=20ANDCP=128THENBA=CP:PRINTS$(126):GOTO100
8074 IFNO=20ANDCP=120THENBA=CP:PRINTS$(126):GOTO100
8076 IFNO=51ANDCP=121ANDOB(93)=0THENPRINTS$(127):OB(51)=0:GOTO100
8080 IFNO=55ANDCP=121ANDOB(92)=0THENPRINTS$(127):OB(55)=0:GOTO100
8085 IFCP=106ANDNO=65THEN32000
8090 GOTO100
8500 :
8502 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
8503 IFKL=1THENPRINTS$(110):GOTO112
8505 IFNO=24ANDOB(86)<>-1ANDCP=43THENPRINTS$(1):KL=1:GOTO112
8510 IFNO=26ANDCP=57ANDOB(85)<>-1THENPRINTS$(1):KL=1:GOTO112
8515 IFNO=29ANDCP=62THENPRINTS$(103):KL=1:GOTO112
8520 IFNO=42ANDSE=1THENPRINTS$(52):FORI=1TO2500:NEXTI:PRINTS$(104):GOTO100
8525 IFNO=49ANDCP=109THENPRINTS$(105):GOTO100
8530 IFNO=58ANDCP=131THENPRINTS$(106);S$(107):KL=1:GOTO112
8535 IFNO=61ANDOB(61)=CPTHENPRINTS$(108):KL=1:GOTO112
8540 IFNO=64ANDOB(63)=0THENPRINTS$(132):OB(64)=0:GOTO100
8542 IFNO=64ANDCP=138THENPRINTS$(109):GOTO112
8545 IFNO=79ANDCP=137ANDOB(79)=CPTHENPRINTS$(54):KL=1:GOTO112
8593 PRINTS$(111):GOTO100
9000 :
9003 IFKL=1THENPRINTS$(115):KL=0:GOTO100
9005 PRINTS$(116):GOTO100
9500 :
9502 IFNO=11ORNO=30ORNO=38ORNO=39ORNO=32ORNO=59ORNO=14THEN9505
9503 PRINTS$(121):GOTO100
9505 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
9506 IFNO=14THENPRINT"[153][215]IE?":GOTO100
9510 IFNO=30THENPRINTS$(136):GOTO100
9515 IFNO=32THEN14500
9520 IFNO=38THEN14500
9525 IFNO=11ANDCP=124ANDOB(56)=CPTHENPRINTS$(137):OB(56)=0:GOTO100
9530 IFNO=11ANDCP=41ANDOB(23)=0THENPRINTS$(139):OB$(22)=OB$(87):S=1
9531 IFS=1THENS=0:OB(87)=-1:GOTO100
9535 IFNO=11ANDCP=41ANDOB(23)<>0THENPRINTS$(138):OB(23)=0:GOTO100
9540 IFNO=39ANDOB(38)=-2ANDCP=130ANDOB(57)=CPTHENPRINTS$(140):OB(57)=0:S=1
9541 IFS=1THENS=0:PF=PF-1:GOTO100
9545 IFNO=39ANDOB(38)=-2ANDOB(96)=-1ANDCP=98ANDOB(41)<>0THENPRINTS$(141):S=1
9546 IFS=1THENS=0:PF=PF-1:OB(41)=0:P(98,2)=105:GOTO100
9550 IFNO=39ANDOB(38)=-2ANDCP=98THENPRINTS$(142):PF=PF-1:GOTO100
9560 IFNO=39ANDOB(38)=-2THENPRINTS$(83):PF=PF-1:GOTO100
9570 IFNO=11ANDOB(11)=-2ANDCP=25ANDOB(21)=CPTHENPRINTS$(156):OB(21)=0:GOTO100
9575 IFNO=59ANDCP=137ANDOB(79)>0THENPRINTS$(1):RA=1:GOTO100
9580 PRINTS$(6):GOTO100
10000 :
10003 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
10004 IFNO=65ANDBU=1THENPRINTS$(150);S$(151):GOTO100
10005 IFNO=65THENPRINTS$(152):GOTO100
10006 IFNO=80ANDOB(80)<>0THENPRINTS$(59):GOTO100
10007 IFNO=66THENPRINTS$(152):GOTO100
10008 IFNO=67THENPRINTS$(60):GOTO100
10009 IFNO=36THEN10100
10010 PRINTS$(61):GOTO100
10100 PRINT"[147][150][200]ALLO [193]BENTEURER !"
10101 PRINT"[196]U HAST DIE [193]UFGABE, DAS"
10102 PRINT"*** [194][213][195][200] [196][197][210][160][215][197][201][211][200][197][201][212] ***"
10103 PRINT"ZU FINDEN UND ZU DEN [218][215][197][210][199][197][206][160]ZU BRINGEN."
10104 PRINT"[193]UF DEM [215]EGE DAHIN WIRST [196]U VIELE [160][160][160][160][160][160][193][194][197][206][212][197][213][197][210] UND [199][197][198][193][200][210][197][206]"
10105 PRINT"BESTEHEN MUESSEN. [211]EI AUF DER [200]UT UND   FUERCHTE [196]ICH NICHT."
10106 PRINT"[206]OCH EIN PAAR [212]IPS:"
10107 PRINT"[201]CH WERDE [196]EIN [194]EGLEITER SEIN, UND DICH FUEHREN, INDEM [196]U MIR "
10108 PRINT"[193]NWEISUNGEN IN [198]ORM ' NIMM AXT' "
10109 PRINT"'LEGE BUCH' GIBST.":PRINT"*** [194]ITTE EINE [212]ASTE ***":WAIT 203,63
10110 PRINT"[197]INIGE [214][197][210][194][197][206] SIND Z.[194].:"
10111 PRINT"TAUSCHE-FRAGE-TRAGE-BENUTZE-(EIN)LADEN- RAEUMEN"
10112 PRINT"[205]IT 'INVENTUR' BEKOMMST [196]U GEZEIGT, WAS [196]U BEI [196]IR TRAEGST."
10115 PRINT"[205]IT 'SAVE' KANNST [196]U EIN [211]PIEL FUER     SPAETERES [215]EITERSPIELEN"
10116 PRINT"ABSPEICHERN."
10117 PRINT"[213]ND NUN  [214][201][197][204] [199][204][213][197][195][203] !!!"
10118 PRINT"([197].[212]HORAND U.[160][198].[205]ESSING)"
10119 PRINT"*** [194]ITTE EINE [212]ASTE *** ":WAIT 203,63:PRINT"[147]":CS=1
10120 PRINT"[206]OCH ETWAS:"
10122 PRINT"[197]INIGE [214]ERBEN KOENNEN ALLEIN BENUTZT    WERDEN, Z.[194]."
10124 PRINT"SCHAU - HILF - SAVE"
10126 PRINT"[215]ENN [196]U ETWAS UNTERSUCHEN MOECHTEST,    GIB' BITTE Z.[194]. "
10128 PRINT"SCHAU [200]UETTE ODER SCHAU [211]TATUE' EIN."
10130 PRINT"[196]IE HIER AUFGEFUEHRTEN [214]ERBEN SIND NUR  EINE [193]USWAHL!"
10136 PRINT"*** BITTE EINE [212]ASTE ***":WAIT203,63:PRINT"[147]"
10138 PRINT"[197]IN VORLETZTER [212]IP: [196]IE [210]AEUME SIND     NORMALERWEISE QUADRATISCH,"
10140 PRINT"NUR AM [198]LUSS NICHT, DORT IST [214]ORSICHT   BEIM [193]UFZEICHNEN GEBOTEN!"
10144 PRINT"......UND SOLLTE ES GARNICHT KLAPPEN:"
10146 PRINT"[203]ARTE ODER [193]NRUF AN:"
10147 PRINT"[197]DGAR [212]HORAND"
10148 PRINT"[193]N DER [210]OETHE 1"
10149 PRINT"3501 [203]OERLE"
10150 PRINT"[212]EL. 05665/1670"
10155 PRINT"[193]UCH UEBER [203]RITIK UND [193]NREGUNGEN BIN    ICH SEHR DANKBAR!!"
10156 PRINT"[211]O .. UND NUN LOS!"
10160 PRINT"*** BITTE EINE [212]ASTE ***":WAIT203,63:GOTO100
10500 :
10504 IFOB(NO)<>-2THENPRINTS$(29):GOTO100
10508 IFNO=45ORNO=53THENPRINTS$(33):OB(NO)=0:ZZ=ZZ-1:GOTO100
10510 IFNO=20ORNO=34ORNO=35ORNO=52ORNO=77ORNO=78THENPRINTS$(34):OB(NO)=0:S=1
10511 IFS=1THENZZ=ZZ-1:S=0:GOTO100
10512 PRINTS$(35):GOTO100
11000 :
11005 IFNO<>81THENPRINTS$(30):GOTO100
11008 IFCP=94ORCP=147ORCP=165ORCP=71ORCP=153ORCP=154ORCP=155ORCP=156THENS=1
11011 IFCP=157ORCP=159ORCP=158ORCP=64ORCP=160ORCP=172THENS=1
11012 :
11013 IFS=1THENPRINTS$(31):S=0:GOTO100
11015 IFCP=81ORCP=166ORCP=68ORCP=167ORCP=55ORCP=56ORCP=168ORCP=57ORCP=72THENS=1
11017 IFCP=169ORCP=170ORCP=73ORCP=171ORCP=74ORCP=75ORCP=173ORCP=63ORCP=76THENS=1
11018 IFCP=77ORCP=174ORCP=90ORCP=175ORCP=103ORCP=104ORCP=176THENS=1
11019 IFS=1THENPRINTS$(45):S=0:GOTO100
11035 PRINTS$(32):GOTO100
11500 :
11506 PRINT"[147][196]U TRAEGST:"
11507 PRINT:IFZZ=0THENPRINT"[150][206]ICHTS":GOTO100
11510 FORI=9TOLO:IFOB(I)<>-2THEN11520
11512 IFI=38THENPRINT"[157]";PF;
11514 PRINT"[150]";OB$(I)
11520 NEXTI
11522 GOTO100
12000 :
12004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
12010 IFNO=76ORNO=71ORNO=63ORNO=62ORNO=28ORNO=46ORNO=12THEN12020
12015 PRINTS$(5):GOTO100
12020 IFNO=76ANDCP=73THENPRINTS$(84):OB(76)=0:GOTO100
12025 IFNO=71ANDCP=34THENPRINTS$(85);S$(86):OB(71)=0:GOTO100
12030 IFNO=63ANDCP=138THENPRINTS$(87);S$(88):OB(63)=0:GOTO100
12035 IFNO=62ANDCP=135ANDOB(11)=-2THENPRINTS$(89):OB(62)=0:GOTO100
12036 IFNO=62THENPRINTS$(14):GOTO100
12040 IFNO=28ANDCP=59THENPRINTS$(90):OB(28)=0:GOTO100
12045 IFNO=46THENPRINTS$(91):GOTO100
12050 IFNO=12THENPRINTS$(92):GOTO100
12500 :
12502 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
12504 IFNO=12ORNO=22ORNO=72ORNO=70ORNO=74ORNO=57ORNO=56ORNO=41THEN12520
12506 IFNO=17ORNO=25ORNO=62ORNO=43ORNO=73ORNO=21THEN12520
12508 PRINTS$(5):GOTO100
12520 PRINT"[153][215]IE ?":GOTO100
13500 :
13505 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
13510 IFNO=61THEN13520
13515 PRINTS$(5):GOTO100
13520 IFCP=133THENPRINTS$(133):OB(61)=137:P(137,3)=0:GOTO100
13525 IFCP=137THENPRINTS$(133):P(137,3)=134:OB(61)=133:GOTO100
14000 :
14005 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
14006 IFNO=61ORNO=79ORNO=50THEN14010
14007 PRINTS$(5):GOTO100
14010 IFNO=61ANDRA=1THENPRINTS$(117):PRINTS$(118):P(137,2)=140:S=1
14011 IFS=1THENS=0:OB$(79)=OB$(84):GOTO100
14015 IFNO=61ANDCP=137THENPRINTS$(119):GOTO100
14020 IFNO=79ANDRA=0THENPRINTS$(119):GOTO100
14025 IFNO=79ANDRA=1ANDOB(61)=CPTHENPRINTS$(120):GOTO100
14030 IFNO=50ANDCP=121ANDOB(51)=0THENPRINTS$(134):OB(93)=-1:S=1
14035 IFS=1THENS=0:OB$(51)=OB$(93):OB(51)=CP:GOTO100
14040 IFNO=50ANDCP=121ANDOB(55)=0THENPRINTS$(135):OB$(55)=OB$(92):S=1
14041 IFS=1THENS=0:OB(92)=-1:OB(55)=CP:GOTO100
14050 PRINTS$(121):GOTO100
14500 :
14504 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
14510 IFNO=14ORNO=32ORNO=38THEN14520
14511 IFNO=10ORNO=12ORNO=17ORNO=18ORNO19ORNO=24ORNO=26ORNO=25ORNO=27THENS=1
14512 IFNO=28ORNO=29ORNO=33ORNO=36ORNO=37ORNO=41ORNO=43ORNO=46ORNO=49THENS=1
14513 IFNO=54ORNO=56ORNO=57ORNO=58ORNO=60ORNO=61ORNO=62ORNO=63ORNO=64THENS=1
14514 IFNO=67ORNO=68ORNO=69ORNO=70ORNO=71ORNO=72ORNO=73ORNO=74ORNO=75THENS=1
14515 IFNO=76ORNO=79ORNO>80THENS=1
14516 IFS=1THENS=0:PRINTS$(5):GOTO100
14519 PRINTS$(1):OB(NO)=0:ZZ=ZZ-1:GOTO100
14520 :
14525 IFNO=32ANDCP=18ANDOB(88)<>-1THENPRINTS$(76):OB(88)=-1:OB$(70)=OB$(88):S=1
14526 IFS=1THENS=0:ZZ=ZZ-1:OB(32)=CP:GOTO100
14530 IFNO=32ANDCP=28ANDOB(90)<>-1THENPRINTS$(77):OB(90)=-1:OB$(72)=OB$(90):S=1
14531 IFS=1THENS=0:ZZ=ZZ-1:OB(32)=CP:GOTO100
14535 IFNO=32ANDCP=49ANDOB(25)=CPTHENPRINTS$(78);S$(79):OB(25)=0:OB(32)=0:S=1
14536 IFS=1THENS=0:ZZ=ZZ-1:GOTO100
14540 IFNO=32ANDCP=156ANDOB(43)=CPTHENPRINTS$(80):ZZ=ZZ-1:OB(32)=0:S=1
14541 IFS=1THENS=0:OB(43)=0:GOTO100
14545 IFNO=32THENPRINTS$(1):ZZ=ZZ-1:OB(32)=0:GOTO100
14550 IFNO=38THENPRINTS$(83):S=1:PF=PF-1:IFPF=0THENZZ=ZZ-1:OB(38)=0
14551 IFS=1THENS=0:GOTO100
14555 IFNO=14ANDCP=87ANDOB(89)=0THENPRINTS$(81):ZZ=ZZ-1:OB(14)=CP:S=1
14556 IFS=1THENS=0:OB(89)=-1:OB$(74)=OB$(89):GOTO100
14560 IFNO=14ANDCP=63ANDOB(73)=CPTHENPRINTS$(82):ZZ=ZZ-1:OB(73)=0:S=1
14561 IFS=1THENS=0:OB(14)=CP:GOTO100
14565 IFNO=14THENPRINTS$(1):ZZ=ZZ-1:OB(14)=0:GOTO100
15000 :
15004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
15006 IFNO=28THENPRINTS$(10):PRINTS$(11):PRINTS$(12):GOTO100
15008 IFNO=46THENPRINTS$(13):GOTO100
15010 IFNO=62THENPRINTS$(14):GOTO100
15012 IFNO=63THENPRINT"[147]";S$(15):PRINTS$(16):PRINTS$(17):PRINTS$(18):S=1
15013 IFS=1THENS=0:GOTO15030
15014 PRINTS$(5):GOTO100
15030 INPUT"[153][215]IE IST MEIN [206][193][205][197]";NA$:NA=NA+1
15033 IFNA$="USEBIS"ORNA$="[213][211][197][194][201][211]"THEN15038
15034 IFNA>5THENPRINTS$(88):OB(63)=0:GOTO100
15035 PRINTS$(129):GOTO100
15038 PRINTS$(130);S$(131):PRINTS$(88):OB(63)=0:OB(65)=CP:GOTO100
15500 :
15504 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
15510 IFNO=12ORNO=17ORNO=18ORNO=21ORNO=25ORNO=37ORNO=71ORNO=72THEN15520
15511 IFNO=73ORNO=76THEN15520
15515 PRINTS$(5):GOTO100
15520 PRINT"[153][204]EGE DAS [198]UTTER HIN !":GOTO100
16000 :
16004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
16006 IFNO=9THENPRINTS$(19):OB(12)=CP:OB(9)=0:GOTO100
16008 IFNO=17ORNO=18ORNO=21ORNO=22ORNO=25ORNO=33ORNO=37THENPRINTS$(20):GOTO100
16010 IFNO=43ORNO=41ORNO=45ORNO=46ORNO=56ORNO=57ORNO=70THENPRINTS$(20):GOTO100
16011 IFNO=71ORNO=72ORNO=73ORNO=74ORNO=75ORNO=76THENPRINTS$(20):GOTO100
16012 IFNO=16ANDOB(91)=-1THENPRINTS$(21):GOTO100
16014 IFNO=16THENPRINTS$(1):OB$(16)=OB$(91):OB(91)=-1:FE=1:GOTO100
16049 PRINTS$(6):GOTO100
16500 :
16502 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
16503 IFOB(14)<>-2THENPRINT"[153][215]OMIT ?":GOTO100
16504 IFNO=26ANDOB(85)=-1THENPRINTS$(22):GOTO100
16506 IFNO=26THENPRINTS$(1):OB$(26)=OB$(85):OB(85)=-1:P(57,2)=152:S=1
16507 IFS=1THENS=0:P(169,3)=152:P$(179)="UNTER DER [212]ANNE":GOTO100
16510 IFNO=24ANDOB(86)=-1THENPRINTS$(23):GOTO100
16512 IFNO=24THENPRINTS$(1):OB$(24)=OB$(86):OB(86)=-1:GOTO100
16514 IFNO=29THENPRINTS$(24):GOTO100
16516 PRINTS$(5):GOTO100
17000 :
17004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100
17006 IFNO<>42THENPRINTS$(5):GOTO100
17007 IFSE=0THENPRINTS$(49):GOTO100
17008 PRINTS$(1):SE=0:GOTO100
17500 :
17505 PRINT"[147]"
17506 PRINTS$(153);S$(154):GOTO100
20000 INPUT"[147][198]ILENAME";N$
20009 PRINT"[203]ASSETTE ODER [196]ISKETTE?"
20010 GETK$:IFK$="D"ORK$="[196]"THEN21000
20020 IFK$="K"ORK$="[203]"THEN22000
20025 GOTO20010
21000 OPEN2,8,2,N$+",S,W":OPEN15,8,15:INPUT#15,A,A$:IFA$<>"OK"THEN29000
21100 FORI=9TOLO:PRINT#2,OB(I):PRINT#2,OB$(I):NEXTI:PRINT#2,CP:PRINT#2,ZZ
21101 PRINT#2,LG:PRINT#2,LI:PRINT#2,SE:PRINT#2,RI:PRINT#2,BP:PRINT#2,FA
21102 PRINT#2,FE:PRINT#2,KL:PRINT#2,Z:PRINT#2,PF:PRINT#2,BU:PRINT#2,RA
21103 PRINT#2,NA
21104 PRINT#2,SP:FORM=1TO3:PRINT#2,Y(M):NEXTM
21108 FORI=1TOCP:FORJ=0TO3:PRINT#2,P(I,J):NEXTJ,I:PRINT#2,DR:PRINT#2,PG
21200 CLOSE2:CLOSE15:GOTO100
22000 OPEN2,1,1,N$:GOTO21100
25000 INPUT"[198]ILENAME";N$
25005 PRINT"[203]ASSETTE ODER [196]ISKETTE?"
25010 GETA$:IFA$="D"ORA$="[196]"THEN26000
25012 IFA$="K"ORA$="[203]"THEN27000
25014 GOTO25010
26000 OPEN2,8,2,N$+",S,R":GOTO28000
26100 FORI=9TOLO:INPUT#2,OB(I):INPUT#2,OB$(I):NEXTI
26101 INPUT#2,CP:INPUT#2,ZZ:INPUT#2,LG:INPUT#2,LI:INPUT#2,SE:INPUT#2,RI
26102 INPUT#2,BP:INPUT#2,FA:INPUT#2,FE:INPUT#2,KL:INPUT#2,Z:INPUT#2,PF
26103 INPUT#2,BU:INPUT#2,RA:INPUT#2,NA:INPUT#2,SP:FORM=1TO3:INPUT#2,Y(M):NEXTM
26104 FORI=1TOCP:FORJ=0TO3:INPUT#2,P(I,J):NEXTJ,I:INPUT#2,DR:INPUT#2,PG
26120 CLOSE2:CLOSE15:GOTO40
27000 OPEN2,1,0,N$:GOTO26100
28000 OPEN15,8,15:INPUT#15,A,A$:IFA$="OK"THEN26100
28010 IFA$="FILE NOT FOUND"THEN28100
28020 IFA$="DRIVE NOT READY"THEN28110
28030 IFA$="FILE TYPE MISMATCH"THEN28120
28050 PRINTA$:END
28100 PRINT"[197]IN [198]ILE DIESES [206]AMENS EXISTIERT NICHT!"
28110 INPUT"[198]ILENAME";N$:GOTO28200
28111 PRINT"[196]ISKETTE EINLEGEN!":PRINT,"[198]ERTIG?"
28112 GETX$:IFX$=""THEN28112
28113 GOTO28110
28120 PRINT"[203]EIN [196]ATEN-[198]ILE!":GOTO28110
28150 PRINTA$:STOP
28200 CLOSE2:CLOSE15:GOTO26000
29000 CLOSE2:CLOSE15:IFA$="WRITE PROTECT ON"THEN29100
29010 IFA$="DRIVE NOT READY"THEN29200
29030 IFA$="FILE EXISTS"THEN29300
29040 IFA$="FILE TYPE MISMATCH"THEN29400
29050 PRINT"A$:S[212]
29060 [137]20000
29100 [153]"STR$IESE STR$ISKETTE IST (null)CHREIB-GESCHUETZT"
29110 [153]"PEEKITTE EINE ANDERE STR$ISKETTE EINLEGEN":[153],"ASCERTIG?"
29120 [161]X$:[139]X$[178]""[167]29120
29130 [137]21000
29200 [153]"STR$ISKETTE EINLEGEN!":[153],"ASCERTIG?":[137]29120
29300 [153]"VALIN ASCILE DIESES (null)AMENS EXISTIERT BEREITS"
29310 [153]"SOLL ES UEBERSCHRIEBEN WERDEN (J/N)?"
29320 [161]X$:[139]X$[178]"J"[167]N$[178]"@0:"[170]N$:[137]21000
29330 [139]X$[178]"N"[167]20000
29340 [137]29320
29400 [153]"STR$IESER (null)AME IST VON EINEM ANDEREN"," ASCILE-(null)YP GELEGT"
29410 [129]A[178]1[164]2000:[130]:[137]20000
30000 :
30004 [153]"LOADSYSSTR$EIN (null)OERPER IST SO GESCHWAECHT, DASS   STR$U STR$ICH NICHT MEHR";
30005 [153]" BEWEGEN KANNST.":[153]"STR$U STIRBST QUALVOLL !"
30006 [129]I[178]1[164]3000:[130]I:[137]31000
30010 [153]"LOADSYSSTR$U BIST LEIDER ERTRUNKEN!"
30011 [129]I[178]1[164]2000:[130]I:[137]31000
30020 [153]"LOADSYS....UND DER (null)(null)(null)(null)ASC FORDERT EIN NEUES     (null)(null)ASCVAL(null) !!!"
30021 [129]I[178]1[164]3000:[130]I:[153]"LOAD":[137]31000
30030 [153]"LOADSYSSTR$IE (null)(null)RIGHT$(null)(null)VALCLOSEHAT STR$ICH GEFRESSEN.":[129]I[178]1[164]3000:[130]I:[137]31000
31000 :
31002 [153]"LOAD(null)EUES (null)PIEL ? (J/N)"
31003 [161]SP$:[139]SP$[178]""[167]31003
31004 [139]SP$[178]"J"[167][156]:[140]:[137]1
31005 [139]SP$[178]"N"[167]31007
31006 [137]31003
31007 [153]"(null)IE SCHADE.":[158]64738
32000 [153]"LOAD*** LEFT$VAL(null)(null)(null)RIGHT$LENLEFT$VAL(null)CLOSECHR$(null)(null)VALLEN(null)(null)(null)(null)(null)LENLEFT$CLOSE***"
32001 [129]I[178]1[164]15:[151]53280,I:[129]S[178]1[164]200:[130]S:[130]I:[151]53280,2:[151]53281,2
32002 [153]"STR$U HAST DAS ATNBENTEUER HERVORRAGEND      GELOEST!"
32003 [153]"VALS GRATULIEREN STR$IR DIE ATNUTOREN:"
32004 [153]"ASC.(null)ESSING UND VAL.(null)HORAND"
32005 [129]I[178]1[164]4000:[130]I:[153]"* PEEKITTE EINE (null)ASTE *":[146]203,63
32006 [158]64738
50000 :
50005 NP[178]180:LO[178]98:NV[178]38:CP[178]177:CS[178] 0:NN[178]84:SS[178]168:ZZ[178]0:PF[178]5
50010 [134]P(NP,4),P$(NP),VB$(NV),OB$(LO),OB(LO),NO$(NN),S$(SS)
50020 [129]I[178]1[164]NP:[129]J[178]0[164]3:[135]P(I,J):[130]J,I
50030 [129]I[178]1[164]NP:[135]P$(I):[130]I
50040 [129]I[178]9[164]LO:[135]OB$(I):[130]I
50050 [129]I[178]9[164]LO:[135]OB(I):[130]I
50060 [129]I[178]1[164]NN:[135]NO$(I):[130]I
50070 [129]I[178]0[164]3:[135]D$(I):[130]I
50080 [129]I[178]1[164]NV:[135]VB$(I):[130]I
50090 [129]I[178]1[164]SS:[135]S$(I):[130]I
51000 :
51002 [131] 0,2,4,0,1,0,5,0,0,4,7,0,3,5,8,1,4,6,9,2,5,0,10,0,177,8,0,3,7,9,0,4
51003 [131] 8,10,0,5,9,0,0,6
51005 [131] 0,0,16,0,0,0,20,0,0,0,24,0,0,15,27,0,14,16,28,0,15,17,0,0
51006 [131] 16,18,30,0,17,19,31,0,18,20,32,0,19,21,33,0
51008 [131] 20,22,34,0,21,23,35,0,22,24,36,0,23,25,37,0,24,26,38,0,25,0,39,0
51009 [131] 0,28,40,14,27,29,41,15,28,30,0,0,0,0,0,0
51011 [131] 0,0,0,0,31,0,45,19,0,0,46,20,0,35,47,21,34,36,48,22
51012 [131] 35,37,49,23,36,38,50,24,37,39,51,25,0,0,0,0,0,41,53,27
51014 [131]40,42,54,28,41,43,55,0,42,44,56,30,0,0,0,0,44, 0,0,32,0,0,59,33
51015 [131] 0,48,60,34,0,0,0,0,48,0,62,36,0,51,63,37
51017 [131] 0,0,0,0,0,0,0,0,0,54,66,40,53,55,67,41,54,56,68,42,55,57,0,43
51018 [131] 56,0,0,44,0,0,0,0,0,60,72,46,0,0,0,0
51020 [131] 0,0,0,0,61,63,75,0,62,64,0,50,63,65,160,51,64,0,78,52,0,67,79,53
51021 [131] 66,68,80,54,67,149,81,55,167,70,82,168,69,71,0,169
51023 [131] 70,170,84,153,0,73,0,59,72,74,0,60,73,75,0,61,74,0,0,62,173,77,89,0
51024 [131] 76,161,90,0,174,0,91,65,0,80,92,66,79,81,93,67
51026 [131] 80,148,94,68,166,0,95,69,0,84,0,0,83,0,97,71,0,86,0,0
51027 [131] 85,87,0,0,86,0,0,172,87,89,101,173,88,90,102,76
51028 [131] 89,0,103,77
51030 [131] 175,0,104,78,0,93,0,79,92,94,0,80,93,0,0,81,165,96,0,82,95,97,0,0
51031 [131] 96,98,0,84,97,99,0,0,98,100,0,0,99,101,0,0
51033 [131] 100,102,0,88,101,103,0,89,102,176,0,90,0,0,0,91,0,0,106,98
51034 [131] 0,0,108,105,0,108,115,0,107,109,116,106,108,0,117,0,0,111,0,0
51036 [131] 110,112,0,0,111,113,0,0,112,114,0,0,113,115,123,0,114,116,0,107
51037 [131] 115,117,124,108,116,118,0,109,117,119,125,0,118,120,0,0,119,121,0,0
51039 [131] 120,122,0,0,121,0,0,0,0,0,126,114,0,0,127,116,0,0,128,118
51040 [131] 0,0,129,123,0,0,0,124,0,0,133,125,0,130,134,126,129,131,0,0
51042 [131] 130,0,0,0,0,133,0,0,132,0,136,128,0,0,137,129,0,0,138,131
51043 [131] 0,0,139,133,146,0,0,134,0,0,0,135,0,0,141,136,0,0,142,137
51045 [131] 0,0,146,139,0,143,0,140,142,144,0,0,143,145,0,0,0,0,0,0,0,0,137,141
51046 [131]  0,165,0,148,81,0,147,178,68,167,0,0,0,151,178,0,150,179
51048 [131] 0,0,0,0,169,57,0,154,71,0,153,155,0,0,154,156,0,0,155,157,172,0
51056 [131] 156,158,0,0,157,0,0,159,0,160,158,0,159,0,180,64,77
51058 [131] 174,0,0,0,0,163,180,0,164,0,162,163,0,0,104,0,95,0,166,0,82,165,167
51059 [131] 149,69,166,0,0,169,69,0,168,0,70,152,71,171,0,0
51061 [131] 170,172,0,0,171,173,87,156,172,76,88,0,161,78,175,0
51062 [131] 0,91,0,174,103,0,0,0,0,7,0,0,0,0,148,150,151,58,0,0,0,0,162,160
51066 [131] "AUF EINER (null)ICHTUNG","IM (null)ALD","IM (null)ALD","IM (null)ALD","IM (null)ALD"
51067 [131] "IM (null)ALD","AUF EINER (null)ICHTUNG","IM (null)ALD","AUF EINER (null)ICHTUNG"
51068 [131] "IM (null)ALD","AUF EINEM ASCELD","IM (null)ALD","AUF EINER (null)IESE"
51069 [131] "IM ASCARNWALD","IM ASCARNWALD","IM OEDEN CHR$RASLAND","IN EINER (null)TEPPE"
51070 [131] "IN EINER (null)TEPPE","IM ASCARNWALD","IN EINER (null)TEPPE","IN EINER (null)TEPPE"
51071 [131] "IN EINER (null)TEPPE","IM CHR$RASLAND","IM CHR$RASLAND","IN DER (null)TEPPE"
51072 [131] "IM ASCARNWALD","IM ASCARNWALD","IM ASCARNWALD","IM LICHTEN (null)ALD"
51073 [131] "IM (null)UMPF","IM (null)UMPF","IM ASCARNWALD","IM ASCARNWALD","IM ASCARNWALD"
51074 [131] "IM LICHTEN (null)ALD","IM ASCARNWALD","AUF EINER (null)ICHTUNG"
51075 [131] "IM LICHTEN (null)ALD","IM (null)UMPF","IM ASCARNWALD","IM (null)PINNENNEST"
51076 [131]"IM ASCARNWALD","AUF EINER (null)ICHTUNG","IM (null)UMPF","IM LICHTEN (null)ALD"
51077 [131]"IM LICHTEN (null)ALD","IM LICHTEN (null)ALD","IM (null)UMPF","IM ASCARNWALD"
51078 [131]"IM ASCARNWALD","IM (null)UMPF","IM (null)UMPF","IM ASCARNWALD","IM ASCARNWALD"
51079 [131]"AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","IM (null)ASSERFALL","AUF EINER (null)ICHTUNG"
51080 [131]"IM (null)UMPF","IM (null)UMPF","IM ASCARNWALD","AM ASCLUSS","AM ASCLUSS"
51081 [131]"IM ASCARNWALD","AUF EINER (null)ICHTUNG","AUF EINER (null)ICHTUNG"
51082 [131]"AM ASCLUSS","IM LICHTEN (null)ALD","IM LICHTEN (null)ALD","AM ASCLUSS","AM ASCLUSS"
51083 [131]"AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS"
51084 [131]"IM LICHTEN (null)ALD","IM ASCARNWALD","IM ASCARNWALD","AM ASCLUSS"
51085 [131]"IM HUEGELIGEN CHR$ELAENDE","IM HUEGELIGEN CHR$ELAENDE","IM ASCARNWALD"
51086 [131]"IM ASCARNWALD","IM ASCARNWALD","IM HUEGELIGEN CHR$ELAENDE","IM ASCARNWALD"
51087 [131]"IM HUEGELIGEM CHR$ELAENDE","AM ASCLUSS","IM ASCARNWALD","AM CHR$EBIRGE"
51088 [131]"IM ASCARNWALD","AN DER (null)UELLE","AM CHR$EBIRGE","IM ASCARNWALD","AM CHR$EBIRGE"
51089 [131]"VOR DER LEFT$OEHLE","AM CHR$EBIRGE","AM CHR$EBIRGE","IM ASCARNWALD"
51090 [131]"AM CHR$EBIRGE","AM ASCLUSS","AM ASCLUSS","IM DUNKLEN CHR$ANG","VOR DEM (null)OR"
51091 [131]"VOR EINER (null)ISCHE","IM BREITEM CHR$ANG","VOR EINER (null)ISCHE"
51092 [131]"AM (null)TOLLENENDE","IM BREITEM (null)TOLLEN","AM (null)ASSERSCHACHT"
51093 [131]"IM BREITEN (null)TOLLEN","AN EINER CHR$ABELUNG","IM CHR$EWOELBE"
51094 [131]"IM CHR$EWOELBEGANG","IM CHR$EWOELBE","AN EINER CHR$ABELUNG"
51095 [131]"IM BREITEN (null)TOLLEN","AM (null)ASSERSCHACHT","IM BREITEN CHR$ANG"
51096 [131]"AM (null)TOLLENENDE","IN DER (null)AVERNE","IN EINER LEFT$OEHLE","IM ASCELSENDOM"
51097 [131]"IM (null)ERBINDUNGSGANG","IM (null)ERBINDUNGSGANG","AM (null)ASSERSCHACHT"
51098 [131]"IM (null)UERGANG","IM (null)UERGANG","IM (null)UERGANG","IM (null)UERGANG","IM (null)UERGANG"
51099 [131]"AM (null)ASSERSCHACHT","IM (null)ORRAUM","IM (null)TOLLEN"
51100 [131]"IM (null)TOLLEN","IN FUERSTLICHEN CHR$EMAECHERN","IM (null)TOLLEN"
51101 [131]"IN EINER GROSSEN LEFT$OEHLE","IM (null)TOLLEN","IM (null)ORRAUM"
51102 [131]"IN FINSTEREN (null)AEUMEN","IN FINSTEREN (null)AEUMEN","AUF EINER ASCALLTUER"
51103 [131]"IM (null)UNNEL","BEI DER (null)UELLE","AUF DEM ASCLUSS","AUF DER LEFT$AENGEBRUECKE"
51104 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS","AUF DER (null)ANNE"
51105 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS"
51106 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS","AUF DEM ASCLUSS","AUF DEM ASCLUSS"
51107 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS","AUF DER PEEKRUECKE","AUF DEM ASCLUSS"
51108 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS","AN DER (null)UELLE","AM ASCLUSS","AM ASCLUSS"
51109 [131]"AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS"
51110 [131]"AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","IN DER LEFT$UETTE"
51111 [131]"UNTER DER LEFT$AENGEBRUECKE","AUF DEM ASCLUSS","UNTER DER PEEKRUECKE"
51112 [131]"ALTE (null)EL-(null)AMPE","LEFT$UETTE","(null)CHWERT","(null)EGASUS","(null)UENZEN","ATNXT","ASCACKEL"
51113 [131]"LEFT$OELZER","(null)HYTON","VALLEFANTEN","(null)OCHSTELLE","PEEKALKEN","(null)IGER"
51114 [131]"(null)PINNE","(null)ETZ","PEEKAUM","PEEKOA","(null)ANNE","(null)ATE","ALTER (null)ANN"
51115 [131]"VALICHE","PEEKOOT","(null)UDER","(null)PEER","ATNMEISEN","VALRDBEEREN"
51116 [131]"(null)ARTOFFELN","(null)OTIZ","FLEISCHFRESSENDE (null)FLANZE", "(null)FEILE","PEEKOGEN"
51117 [131]"MAGISCHER (null)ING","(null)(null)(null)(null)(null)(null)","(null)EIL","(null)ROKODILE","VALIER"
51118 [131]"(null)UERMER","(null)WERGE","CHR$RUBENLICHT","(null)RUHE","(null)UFTSCHACHT","ASCORM"
51119 [131]"(null)ILBERSTUECKE","ATNEPFEL","(null)RCHIDEEN","(null)CHMELZOFEN","CHR$OLDSTUECKE"
51120 [131]"(null)TEINFRESSER","ASCLUGDRACHEN","(null)TATUE","(null)REUZHACKE","(null)KELETT"
51121 [131]"(null)ORE","(null)AECHTER","LEFT$ERRSCHER","(null)HRON","PEEK(null)LENLEFT$CLOSESTR$VAL(null) (null)VALRIGHT$(null)LEFT$VALRIGHT$(null)"
51122 [131]"(null)ISTE","RIGHT$(null)(null)LENLEFT$(null)RIGHT$ASC(null)","ASCALLTUER","(null)UNNEL","(null)ARANTEL","ATNFFEN"
51123 [131]"(null)UMA","(null)ATTEN","(null)CORPION","(null)ERMITEN","(null)REBSE","(null)AESE","PEEKANANEN"
51124 [131]"CHR$EROELLHALDE","(null)ERGAMENT","(null)CHLUESSEL","OFFENE (null)RUHE"
51125 [131]"GEOFFNETE (null)ISTE","STR$URCHBRUCH","GEFAELLTE (null)ANNE","GEFAELLTER PEEKAUM"
51126 [131]"TOTE (null)PINNE","TOTE (null)ARANTEL","TOTER (null)CORPION","TOTER (null)UMA"
51127 [131] "BRENNENDE LEFT$OELZER","CHR$OLDSCHLUESSEL","(null)ILBERSCHLUESSEL"
51130 [131]"BRENNENDE ASCACKEL","BRENNENDER PEEKALKEN","BRENNENDE (null)FEILE"
51132 [131]"LEUCHTENDES CHR$RUBENLICHT","(null)FEILE"
51156 [131] 5,7,176,0,18,80,23,29,33,35,37,37,25,41,41,43,49,57,59,59,62,64,104
51157 [131] 85,82, 42,96,177,84,46,83,92,98,78,156,3, 68,106,106,107,109,110
51158 [131] 111,10,26,121,122,124,130,131,125,144,133,135,138,138,0
51159 [131] 140,132,145,146,18,34,28,63,87,129,73,89,53,137,0,0,0,0,0,0,0,0,0,0
51160 [131] 0,0,0,0,0,0,0,0,0
51171 [131] N,S,O,W,NORD,SUED,OST,WEST,LAMP,HUET,SCHW,PEGA,MUEN,AXT,FACK,HOEL
51172 [131] PHYT,ELEF,KOCH,BALK,TIGE,SPIN,NETZ,BAUM,BOA,TANN,KATE,MANN,EICH,BOOT
51173 [131] RUDE,SPEE,AMEI,ERDB,KART,NOTI,PFLA,PFEI,BOGE,RING,ZYKL,SEIL,KROK
51174 [131] EIER,WUER,ZWER,LICH,TRUH,LUFT,FORM,SILB,AEPF,ORCH,OFEN,GOLD,STEI
51175 [131] FLUG,STAT,KREU,SKEL,LORE,WAEC,HERR,THRO,BUCH,KIST,INSC,FALL,TUNN
51176 [131] TARA,AFFE,PUMA,RATT,SCOR,TERM,KREB,KAES,BANA,GERO,PERG,WASS,RUES
51177 [131] FURT,FLUS
51191 [131] "(null)ORDEN","(null)UEDEN","(null)STEN","(null)ESTEN"
51201 [131] GEHE,NIMM,SCHA,TAUS,BEFE,DREH,FUEL,OEFF,REIT,ZUEN,LEGE,KLET,SPRI
51202 [131] BENU,LIES,LESE,HEBE,TRAG,ESSE,ISS,TRIN,LAUF,RENN,INVE,VERJ,TOET
51203 [131] SAVE,SCHI,LADE,RAEU,WERF,WIRF,FRAG,FUET,REIB,FAEL,LOES,HILF
51214 [131]"PRINT(null).(null).","PRINTSTR$AS KANNST DU MID$VAL(null)(null)(null) NICHT MACHEN"
51215 [131]"PRINTSTR$AS SIEHST STR$U HIER NICHT.","PRINTSTR$U SIEHST ETWAS"
51217 [131]"PRINT(null)ACH' STR$ICH NICHT LAECHERLICH!"
51218 [131] "PRINT(null).(null). (null)ICHTS PASSIERT."
51219 [131] "PRINTSTR$AS KANNST STR$U NICHT TRAGEN.","PRINTSTR$U BIST GEBISSEN WORDEN."
51220 [131] "PRINTSTR$AS IST VIEL ZU SCHWER."
51221 [131] "PRINTLEFT$ALTE STR$ICH AM ASCLUSS UND FINDE DIE       BEWACHTE LEFT$OEHLE.",
51222 [131]"PRINTATNCHTE AUF STR$EIN ASCEUER!                   (null)IEL CHR$LUECK!"
51223 [131]"PRINTCHR$IB' UNS STR$EIN (null)VALCHR$ATN(null)(null)(null)! UND LEGE STR$EINE   ASCATNLEN(null)VAL(null) HIN."
51224 [131]"PRINTRIGHT$CH LASSE STR$ICH NICHT DURCH."
51225 [131]"PRINTLEFT$ALLO ASC(null)VAL(null)STR$VAL(null)! STR$EIN (null)(null)(null) SOLL BELOHNT    WERDEN."
51226 [131]"PRINTSTR$U MUSST ABER ZUVOR NOCH EIN (null)ATNVAL(null)(null)VAL(null)    LOESEN."
51227 [131]"PRINT(null)ENN STR$U MIR (null)VALRIGHT$(null)VAL(null)CLOSE(null)AMEN NENNEN KANNST, GEBE ICH STR$IR "
51228 [131] "PRINT*** STR$ATN(null)  PEEK(null)LENLEFT$CLOSESTR$VAL(null)CLOSE(null)VALRIGHT$(null)LEFT$VALRIGHT$(null) ***"
51229 [131]"PRINTSTR$IE (null)AMPE VERSCHWINDET UND ES ERSCHEINT *(null)VALCHR$ATN(null)(null)(null)*"
51230 [131] "PRINTPEEKEI (null)IEREN SOLLTEST STR$U VORSICHTIG SEIN."
51231 [131] "PRINTSTR$IE LEFT$OELZER BRENNEN SCHON."
51232 [131] "PRINTSTR$IE (null)ANNE IST SCHON GEFAELLT."
51233 [131] "PRINTSTR$ER PEEKAUM IST SCHON GEFAELLT."
51234 [131] "PRINTSTR$U BIST NICHT PEEK(null)(null)RIGHT$ASCATN(null)RIGHT$(null)(null)!"
51235 [131]"PRINTSTR$AS TRAEGST STR$U SCHON."
51236 [131]"PRINTSTR$IE (null)UNDE HAT SICH ENTZUENDET!"
51237 [131]"PRINTSTR$U KANNST NICHT MEHR TRAGEN !"
51238 [131]"PRINT LAESST STR$ICH NICHT."
51239 [131]"PRINTSTR$U TRAEGST DAS NICHT."
51240 [131]"PRINTSTR$AS KANNST STR$U NICHT TRINKEN."
51241 [131]"PRINTATNAH! STR$AS TUT GUT !","PRINTLEFT$IER IST KEIN (null)ASSER."
51242 [131]"PRINTRIGHT$GITT! STR$AS SCHMECKT NICHT!","PRINT(null)MMHH! STR$AS IST LECKER!"
51243 [131]"PRINTSTR$AS KANNST STR$U NICHT ESSEN."
51244 [131]"PRINTSTR$AS KANNST STR$U NICHT DREHEN."
51245 [131]"PRINTVALINE (null)EFFNUNG NACH (null)(null)(null)VAL(null) WIRD SICHTBAR."
51246 [131]"PRINTVALS PASSIERT MID$VAL(null)(null)(null) NICHTS."
51247 [131]"PRINTSTR$AS (null)VALCHR$ATN(null)(null)(null) ERHEBT SICH IN DIE (null)UEFTE   UND FLIEGT MIT STR$IR DAVON."
51248 [131]"PRINTSTR$ER MAGISCHE (null)ING BEGINNT ZU GLUEHEN."
51249 [131]"PRINTSTR$ER MAGISCHE (null)ING HAT SICH AUFGELOEST."
51250 [131]"PRINTSTR$AS (null)EIL IST AN DEM PEEKAUM FESTGEMACHT."
51251 [131]"PRINTSTR$AS (null)EIL IST AN DER (null)ANNE BEFESTIGT."
51252 [131]"PRINTSTR$AS (null)EIL HAENGT AN EINEM ATNST DER VALICHE."
51253 [131]"PRINTSTR$U KANNST DAS (null)ASSER NICHT ERREICHEN."
51254 [131]"PRINTSTR$A IST NICHTS, WO MAN EIN (null)EIL ANBINDEN KANN."
51255 [131]"PRINTSTR$AS (null)EIL HAENGT AN DER (null)ORE."
51256 [131]"PRINTSTR$AS (null)EIL HAENGT AN EINEM VALISENRING UEBERDER CHR$RUBE."
51257 [131]"PRINTSTR$AS (null)EIL IST SCHON LOS."
51258 [131]"PRINTSTR$U SIEHST EIN CHR$EBIRGE IM (null)(null)(null)VAL(null)."
51259 [131]"PRINTSTR$U SIEHST ENTFERNT IM (null)(null)(null)VAL(null) EINEN (null)(null)LEN(null)(null)(null)AUS EINER LEFT$(null)VALLEFT$(null)VAL KOMMEN."
51260 [131]"PRINTSTR$U HAENGST AM (null)EIL."
51261 [131]"PRINTSTR$ER (null)CHACHT WIRD IMMER ENGER."
51262 [131]"PRINTSTR$U SIEHST EINEN (null)RIGHT$LENLEFT$(null)(null)LENLEFT$RIGHT$(null)(null)VAL(null) ZWISCHEN  DEN (null)TEINEN."
51263 [131]"PRINTSTR$U KANNST LEFT$RIGHT$VAL(null) NICHT KLETTERN."
51264 [131]"PRINT(null)(null)ATN(null)(null)LENLEFT$!!! VALIN (null)ASSERSTRUDEL REISST DICHMIT FORT."
51265 [131]"PRINTSTR$ER (null)WERGENKOENIG BEDANKT SICH,UND GIBT DIR DAS CHR$RUBENLICHT."
51266 [131]"PRINTSTR$AS KANNST STR$U NICHT TAUSCHEN."
51267 [131]"PRINT*** (null)UR WER SEINEN CHR$EIST GEBRAUCHT,     IST WEISE ***   (null)(null)VALPEEKRIGHT$(null)"
51268 [131]"PRINTSTR$URCH ATN(null)PEEKVALRIGHT$(null) KOMMST STR$U AUCH ANS (null)RIGHT$VAL(null)."
51269 [131]"PRINTSTR$AS KANNST STR$U NICHT LESEN."
51270 [131]"PRINTVALS IST DUNKEL !"
51271 [131]"PRINTSTR$IE ASCACKEL BRENNT SCHON.","PRINTSTR$ER PEEKALKEN BRENNT SCHON."
51272 [131]"PRINTSTR$ER (null)FEIL BRENNT SCHON.","PRINTSTR$U BIST KEIN PEEKRANDSTIFTER."
51273 [131]"PRINTSTR$IE LEFT$OELZER SIND RESTLOS VERBRANNT."
51274 [131]"PRINTSTR$ER PEEKALKEN IST VERBRANNT."
51275 [131]"PRINTSTR$AS ASCEUER REICHT NICHT AUS, UM DEN (null)FEILZU ENTZUENDEN."
51276 [131]"PRINTSTR$VAL(null)(null)VAL NACH!  STR$U HAST DOCH KEIN ASCEUER!"
51277 [131]"PRINTSTR$AS CHR$RUBENLICHT BRENNT SCHON."
51278 [131]"PRINTSTR$ER (null)WERGENKOENIG GIBT STR$IR (null)VALCHR$ATN(null)(null)(null)      ZURUECK."
51279 [131]"PRINTSTR$AS KANNST STR$U LEFT$RIGHT$VAL(null) NICHT TAUSCHEN."
51280 [131]"PRINTSTR$AS CHR$LAS ZERSPRINGT UND DAS (null)ICHT GEHT  AUS."
51281 [131]"PRINTHAT SEIN (null)IEL VERFEHLT.","PRINTSTR$U HAST DIE (null)ARANTEL GETROFFEN."
51282 [131]"PRINTSTR$U HAST DEN (null)UMA GETROFFEN."
51283 [131]"PRINTSTR$U HAST DIE PEEKOA VERLETZT.(null)IE VERKRIECHT SICH MIT DEM (null)PEER "
51284 [131]"IM ASCARNWALD."
51285 [131]"PRINTSTR$IE (null)ROKODILE SCHWIMMEN DAVON UND DER   (null)PEER VERSINKT."
51286 [131]"PRINTSTR$IE ATNXT ZERQUETSCHT DEM (null)CORPION."
51287 [131]"PRINTSTR$IE (null)ATTEN VERSCHWINDEN IM ASCLUSS."
51288 [131]"PRINTSTR$ER (null)FEIL ZISCHT DURCH DIE (null)UFT."
51289 [131]"PRINTSTR$IE (null)REBSE FLUECHTEN IN DEN ASCLUSS."
51290 [131]"PRINTSTR$IE ATNFFEN SCHWINGEN SICH UNTER LAUTEM   CHR$ESCHREI AUF NAHELIEGENDE"
51291 [131]"PRINTPEEKAEUME.","PRINT(null)ER (null)(null) DENKT, IST DES PEEK(null)LENLEFT$VAL(null) NICHT WUERDIG."
51292 [131]"PRINTSTR$ER LEFT$VAL(null)(null)(null)LENLEFT$VAL(null) DREHT SICH UM UND GEHT."
51293 [131]"PRINTSTR$ER (null)AECHTER ZIEHT SICH ZURUECK."
51294 [131]"PRINTSTR$ER ALTE (null)ANN GEHT IN SEINE (null)ATE ZURUECK."
51295 [131]"PRINT(null)ENN STR$U NICHT AUFPASST, VERJAGEN SIE    STR$RIGHT$LENLEFT$ !!"
51296 [131]"PRINT(null)VALCHR$ATN(null)(null)(null) LAESST SICH NICHT VERJAGEN."
51297 [131]"PRINT(null)CHNURPS! (null)CHNURPS!","PRINTSTR$AS KANNST STR$U NICHT VERFUETTERN."
51298 [131]"PRINTSTR$IE (null)HYTON GIBT STR$IR DEN (null)EG FREI."
51299 [131]"PRINTSTR$ER VALLEFANT LAEUFT KAUEND WEITER."
51300 [131]"PRINTSTR$IE FLEISCHFRESSENDE (null)FLANZE GIBT STR$IR   DEN (null)EG FREI."
51301 [131]"PRINTSTR$IE ATNFFEN FREUEN SICH, UND LAUFEN WEG."
51302 [131]"PRINTSTR$IE (null)ATTEN VERSCHWINDEN."
51303 [131]"PRINTSTR$IE (null)REBSE GEBEN DEN (null)EG FREI."
51304 [131]"PRINTSTR$U BIST IN EINER PEEKAUMKRONE."
51305 [131] "PRINTSTR$U BIST IM (null)IPFEL EINER (null)ANNE."
51306 [131]"PRINTSTR$U BIST GANZ OBEN IN DERCLOSEVALICHE.(null)EBER STR$IRIST BLAUER LEFT$IMMEL."
51307 [131]"PRINTSTR$U KANNST STR$ICH NICHT MEHR HALTEN......"
51308 [131]"PRINTSTR$U KOMMST NICHT DRAN, DER (null)CHACHT IST   ZU HOCH."
51309 [131]"PRINTSTR$U STEHST AUF DER (null)TATUE."
51310 [131]"PRINT(null)IE (null)ATNLEN(null)VAL(null)(null) LEICHT !"
51311 [131] "PRINTSTR$IESES CHR$EFAEHRT IST NUR MIT (null)(null)VALRIGHT$(null)VAL(null) ZU  BELADEN!"
51312 [131]"PRINTSTR$ER LEFT$VAL(null)(null)(null)LENLEFT$VAL(null) VERWEHRT STR$IR DEN (null)UTRITT!"
51313 [131]"PRINTSTR$U KANNST LEFT$RIGHT$VAL(null)CLOSENICHT WEITERKLETTERN."
51314 [131]"PRINTSTR$U KANNST MID$VAL(null)(null)(null) NICHT KLETTERN!"
51315 [131] "PRINTSTR$U SIEHST IM (null)(null)(null)VAL(null) EIN CHR$EBIRGE."
51316 [131]"PRINTSTR$U SIEHST EINEN (null)(null)(null)(null)(null)(null) AUS EINER LEFT$OEHLE KOMMEN."
51317 [131]"PRINTSTR$U SIEHST NICHTS PEEKESONDERES.","PRINTLEFT$UPSCLOSE!"
51318 [131]"PRINTSTR$U BIST JA RICHTIG SPORTLICH!"
51319 [131]"PRINTSTR$IE (null)ORE IST VOLL CHR$EROELL!","PRINTVALIN STR$URCHBRUCH WIRD SICHTBAR."
51320 [131]"PRINTSTR$IE CHR$EROELLHALDE HAT (null)(null) CHR$(null)(null)(null)(null)VAL (null)TEINE."
51331 [131]"PRINT(null)OHIN?","PRINTSTR$AS KANNST STR$U NICHT.","PRINTIST DOCH SCHON AUF!"
51332 [131]"PRINTSTR$ER (null)FEN IST LEFT$VALRIGHT$(null)(null) !","PRINTVALS LIEGT EWAS DARIN."
51333 [131]"PRINTSTR$AS KANNST STR$U DOCH NICHT OEFFNEN!"
51334 [131]"PRINTSTR$ER PEEKALKEN LIEGT UEBER DEM (null)ASSERLOCH."
51335 [131]"PRINTSTR$IE (null)UENZEN SIND IM (null)ASCVAL(null)! (null)IE SCHMELZEN UND WERDEN FLUESSIG!"
51336 [131]"PRINT(null)IE WILLST STR$U DENN DAS (null)VALRIGHT$(null)VAL(null)?","PRINTSTR$AS IST NICHT MEIN (null)AME!"
51337 [131]"PRINTPEEK(null)ATN(null)(null)CLOSEATNPEEKVAL(null)(null)VAL(null)(null)VAL(null)CLOSE!!!CLOSESTR$U SOLLST STR$ATN(null)CLOSEPEEK(null)LENLEFT$ BEKOMMEN."
51338 [131]"PRINTVAL(null) LEGT STR$ATN(null)CLOSEPEEK(null)LENLEFT$CLOSEHIN.","PRINTSTR$ER (null)HRON VERSINKT IM VALRDREICH."
51339 [131]"PRINTSTR$IE (null)ORE ROLLT DAVON."
51340 [131]"PRINTRIGHT$N DER ASCORM BEGINNT EIN (null)RIGHT$(null)PEEKVAL(null)(null)LENLEFT$(null)(null)VAL(null)(null)VAL(null)ZU ERKALTEN."
51341 [131]"PRINTRIGHT$N DER ASCORM BEGINNT EIN CHR$(null)(null)STR$(null)LENLEFT$(null)(null)VAL(null)(null)VAL(null)  ZU ERKALTEN."
51342 [131]"PRINT(null)ERSUCHE: (null)IMM PEEKOOT.","PRINTSTR$ER (null)TEINFRESSER FLIEHT."
51343 [131]"PRINTSTR$AS (null)ETZ ZERREISST,ABER DIE (null)RIGHT$VAL(null)VAL(null)(null)(null)RIGHT$(null)(null)VALKOMMT AUF STR$ICH ZU."
51344 [131]"PRINTSTR$IE (null)PINNE IST TOT.","PRINTSTR$ER ASCLUGDRACHEN FLIEGT DAVON."
51345 [131]"PRINTSTR$ER (null)(null)(null)(null)(null)(null)CLOSE IST SCHWER VERWUNDET UND    VERSCHWINDET IN DER LEFT$OEHLE."
51346 [131]"PRINTSTR$ER (null)FEIL VERWUNDET DEN (null)(null)(null)(null)(null)(null)          NUR (null)VALRIGHT$LENLEFT$(null)."
51347 [131]"PRINTSTR$U SIEHST NICHTS PEEKVAL(null)(null)(null)STR$VAL(null)VAL(null).","PRINT(null)IE IST LEER."
51348 [131]"PRINT(null)IE IST VERSCHLOSSEN.","PRINTVALS LIEGT EIN (null)VAL(null)CHR$ATN(null)VAL(null)(null) DARIN."
51349 [131]"PRINTSTR$IE (null)NOCHEN SIND MIT (null)PINNWEBEN         UEBERZOGEN."
51350 [131]"PRINTVALS KOMMT EINE GROSSE LEFT$RIGHT$(null)(null)VALCLOSEUND (null)ATN(null)LENLEFT$CLOSE   HERAUS."
51351 [131]"PRINTSTR$A STEHT ETWAS CHR$VAL(null)LENLEFT$(null)RIGHT$VALPEEKVAL(null)VAL(null)."
51352 [131]"PRINT(null)ATNLENLEFT$(null) UND CHR$VAL(null)STR$ IST NICHT ATN(null)(null)VAL(null)!"
51353 [131]"PRINT(null)VALRIGHT$(null)LEFT$VALRIGHT$(null)CLOSEIST, (null)VALRIGHT$(null)VAL(null)CLOSE(null)(null)ATN(null)(null) NACHZURENNEN."
51354 [131]"SYS*** STR$AS PEEK(null)LENLEFT$CLOSEDER (null)VALRIGHT$(null)LEFT$VALRIGHT$(null) ***"
51355 [131]"PRINT(null)ASSE STR$EINE ASCATN(null)(null)ATN(null)RIGHT$VAL SPIELEN!"
51356 [131]"PRINTPEEKEDENKE: STR$U BIST IN EINEM (null)ATNVAL(null)LENLEFT$VAL(null)- UNDCLOSE(null)ATNCHR$VAL(null)(null)ATN(null)STR$!"
51357 [131]"PRINTSTR$IE (null)FEILE SIND ERLOSCHEN."
51358 [131]"PRINTSTR$ER (null)IGER KNURRT UND LAEUFT DAVON."
51359 [131]"PRINT(null)ERSUCHE: (null)(null)VAL(null)(null)VAL(null)(null)","PRINTSTR$A KANNST STR$U NICHT HINGEHEN."
51360 [131]"PRINT(null)EIDER KANNST STR$U (null)RIGHT$LENLEFT$(null) SCHWIMMEN."
51361 [131]"PRINT(null)HNE (null)(null)STR$VAL(null)CLOSEKOMMST STR$U NICHT VORAN.","PRINTLASSEN STR$ICH NICHT!"
51362 [131]"PRINTSTR$IE (null)WERGE","PRINTSTR$IE PEEKRUECKE IST MORSCH....(null)IE PEEK(null)RIGHT$LENLEFT$(null)!"
51363 [131]"PRINTSTR$IE LEFT$AENGEBRUECKE HAELT STR$EIN CHR$EWICHT    NICHT AUS........"
51364 [131]"PRINTVALS IST EINE (null)CHLUESSEL-FORM. ((null)ESTE     VON (null)VAL(null)ATN(null)(null) SIND DARIN)"
51365 [131]"PRINTSTR$AS PEEKOOT LECKT !"
51366 [131]"PRINTSTR$IE (null)(null)PEEK(null)(null)STR$VAL HABEN DIE (null)UENZEN GENOMMEN  UND VERSCHWINDEN!"
51367 [131]"PRINTSTR$IE (null)(null)PEEK(null)(null)STR$VAL HABEN STR$ICH BESTOHLEN !"
52000 [142]